Verification de chemin d'accès et récupération de cellule

Yvesmelvine Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'espère que vous allez bien

Ma préoccupation est la suivante:
je dois écrire un programme qui demande a l'utilisateur d'entrer le chemin d'accès d'un classeur source , après un classeur de destination et après une cellule de récupération et la cellule dans laquelle se trouve la valeur que je dois prendre du fichier source (vérifier en même temps si les chemins et la cellule existent ) et copier la valeur se trouvant dans le classeur source dans le classeur de destination sans ouvrir le classeur source

présentement j'arrive a copier la valeur se trouvant dans le classeur source dans le classeur de destination sans ouvrir le classeur source mais comment permettre a l'utilisateur de lui même désigner et le classeur source et le classeur de destination et la cellule de récupération jai beugé toute la nuit

A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

comme ceci:

Option Explicit
'chemin fichier source
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
         .Title = "Choisissez votre fichier"
         .ButtonName = "Ouvrir"
         If .Show = True Then
           Range("A1").Value = .SelectedItems(1)
         End If
    End With
End Sub
'chemin fichier destination
Private Sub CommandButton2_Click()
With Application.FileDialog(msoFileDialogFilePicker)
         .Title = "Choisissez votre fichier"
         .ButtonName = "Ouvrir"
         If .Show = True Then
           Range("A2").Value = .SelectedItems(1)
         End If
    End With
End Sub

0