Forums - Tous les messages : myDearFriend! Excel Pages

Forums - Tous les messages

Forums XLPages

Tous les messages (coline54)

Re: répertoire non reconnu !		#1
coline54 Débutant XLPages Inscription: 09/11/2009 Messages: 2 Système d'exploitation: PC Version Excel utilisée: 2003	Posté le : 10-11-2009 18h19 Merci à vous, Guy pour votre réponse expresse bien détaillée. A quoi sert cette commande ? Simplement à se contrôler. Peu représentatif dans le dossier d'exemple joint mais vraiment essentiel lorsque le document remis à une entreprise par exemple comporte de nombreuses pages et qu'elle vous interroge sur la validité d'une quantité particulière. Le hic, comme vous l'avez justement dit, si tous les documents sont ouverts ça ne fonctionne plus en VBA contrairement avec la commande établie avec les bonnes vieilles fonctions xl. Quant à écrire un gestionnaire d'erreur ça dépasse mon entendement. - en fait je me suis déjà fait aidé pour les quelques lignes écrites sous VBA. De plus sur le dernier fichier lié, positionné sur une cellule correspondant à une somme en général la même commande sous xl sélectionne toutes les cellules dépendantes. En VBA où placer ActiveCell.FormulaR1C1 Vous voyez ça patine ! Cordialement Coline54 [qui est en fait un vieil adolescent peu féru de VBA]

Sujet | Forum

répertoire non reconnu !		#2
coline54 Débutant XLPages Inscription: 09/11/2009 Messages: 2 Système d'exploitation: PC Version Excel utilisée: 2003	Posté le : 10-11-2009 12h18 Bonjour à toutes et à tous, Le problème qui me préoccupe depuis quelque temps déjà intéresse un fichier comportant des liaisons. exemple : Soit une cellule comportant un lien. On la sélectionne et au moyen d'une macro-commande on ouvre le fichier comportant le lien et la cellule dépendante est sélectionnée. Si cette cellule est elle aussi dépendante d'un autre fichier, la macro-commande relancée ouvre le fichier et la cellule liée est sélectionnée. Pour cette manipulation je dispose d'une marco-commande utilisant les fonctions excel, elle fonctionne. En VBA auquel je suis peu féru c'est la cata. L'exemple suivant ne fonctionne pas, pourquoi ? Erreur d'exécution '5': Argument ou appel de procédure incorrecte à la ligne "VPath = Mid(AdrCel, 3, Pos - 2) Sub AtteindreCellule() ' ' ' ' Touche de raccourci du clavier: Ctrl+Maj+Q ' Dim AdrCel As String, Wbk As String, Sht As String, Cel As String Dim VPath As String, Pos As Integer, Pos2 As Integer AdrCel = RangeSelection 'AdrCel = cellule comportant un lien Pos = InStrRev(AdrCel, "]") Pos2 = InStrRev(AdrCel, "'!") ' D?rminer le classeur VPath = Mid(AdrCel, 3, Pos - 2) Wbk = Replace(VPath, "[", "") Wbk = Replace(Wbk, "]", "") ' D?rminer la feuille Sht = Mid(AdrCel, Pos + 1, Pos2 - Pos - 1) ' D?rminer la cellule Cel = Mid(AdrCel, Pos2 + 2, 10)Workbooks.Open Wbk ActiveWorkbook.Sheets(Sht).Select ActiveSheet.Range(Cel).Select End Sub Je joins un dossier comportant les macros et les fichiers permettant de comprendre. D'avance Merci Pièce jointe: r�pertoire.zip [ Taille: 23.81 Ko - Téléchargements: 417 ]

Sujet | Forum