Bonjour,
Je souhaite rappeler une feuille de contrôle, puis d'y copier certains champs dans mon formulaire afin de rappeler certaines valeurs.
J'en suis à ce stade
Code :
- Sub Bouton3182_Cliquer()
- ' Déclaration des variables
- Dim ligne As Integer
- Dim i As Integer
-
- ' Initialisation de la variable ligne à 2 (la ligne 1 est la ligne des titres)
- ligne = 2
-
- ' Boucle permettant de sélectionner plusieurs fichiers
- Do
- cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xlsb), *.xlsb" )
- ' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
- If cheminfichier = False Then
- Exit Do
- End If
- 'Ouverture du classeur source
- Workbook.Open ("J:\etalonnage\ANC\ANC_FICHES_En_cours\" )
- ' Récupération du nom du classeur + extension
- For i = Len(cheminfichier) To 1 Step -1
- If Mid(cheminfichier, i, 1) = "\" Then Exit For
- Next
- Nomfichier = Mid(cheminfichier, i + 1, Len(cheminfichier))
- ' Copie des valeurs entre les classeurs
- ThisWorkbook.Sheets("8)_ANC" ).Range("C" & 5) = Workbooks(Nomfichier).Sheets("8)_ANC" ).Range("C5" ).Value
-
-
- ' Fermeture du classeur source
- Workbooks(Nomfichier).Close
- Loop
- End Sub
|
Il y a une erreur au niveau du chemin du fichier dans le debogueur
merci de votre aide
Message édité par millioss le 24-04-2018 à 15:07:23
