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