(Projet) Rappel de valeur d'un fichier variable

Rappel de valeur d'un fichier variable (Projet) - VB/VBA/VBS - Programmation

Marsh Posté le 24-04-2018 à 14:33:47    

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 :
  1. Sub Bouton3182_Cliquer()
  2. ' Déclaration des variables
  3.     Dim ligne As Integer
  4.     Dim i As Integer
  5.    
  6.     ' Initialisation de la variable ligne à 2 (la ligne 1 est la ligne des titres)
  7.     ligne = 2
  8.    
  9.     ' Boucle permettant de sélectionner plusieurs fichiers
  10.     Do
  11. cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xlsb), *.xlsb" )
  12.   ' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
  13.         If cheminfichier = False Then
  14.             Exit Do
  15.         End If
  16. 'Ouverture du classeur source
  17. Workbook.Open ("J:\etalonnage\ANC\ANC_FICHES_En_cours\" )
  18. ' Récupération du nom du classeur + extension
  19.         For i = Len(cheminfichier) To 1 Step -1
  20.             If Mid(cheminfichier, i, 1) = "\" Then Exit For
  21.         Next
  22.         Nomfichier = Mid(cheminfichier, i + 1, Len(cheminfichier))
  23.             ' Copie des valeurs entre les classeurs
  24.         ThisWorkbook.Sheets("8)_ANC" ).Range("C" & 5) = Workbooks(Nomfichier).Sheets("8)_ANC" ).Range("C5" ).Value
  25.      
  26.        
  27.         ' Fermeture du classeur source
  28.         Workbooks(Nomfichier).Close
  29. Loop
  30. 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
Reply

Marsh Posté le 24-04-2018 à 14:33:47   

Reply

Marsh Posté le 29-04-2018 à 15:34:37    

 
            Bonjour,
 
            activer l'Enregistreur de macro, ouvrir manuellement le classeur : le code est livré sur un plateau !
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed