Discussion :

[mindah]

Bonjour,
je souhaite avoir un code pour avoir la possibilité de cliqué sur un bouton et il me donne le choix de choisir le fichier source (entree dans le code) et ensuite je choisie le fichier final (sortie).
ensuite il copie une valeur d'une certaines cellules (i11 dans le code) et la coller dans la cellule (b2) dans le fichier final.
j'ai essayer avec un code mais j'ai un souci d'incompatibilité . help plz !
le fichier est joint au message.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton1_Click()
Dim Entree As Workbook, Sortie As Workbook
 
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xlsx")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
    ' On ouvre le classeur
    Set Entree = Workbooks.Open(Nomfichierentree)
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xlsx")
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSortie)
 
End If
End If
'lirelesdonnées
With Workbooks(Entree)
.Range("i11").Copy
End With
 
'trouverlevide
Sortie.Activate
Sheets("feuil1").Select
Sheets("feuil1").Activate
For i = 2 To 366
 
If Cells(b, 2) = "" Then
'lirelesdonnées
Sheets("feuil1").Select
Sheets("feuil1").Activate
Cells(b, 2).Select
 
i = 366
End If
Next i
 'ecrirelesdonnées
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

[casefayere]

Bonjour,
peut-être t'inspirer dune méthode de Pierre Fauconnier dans ce post, pour ouvrir le fichierhttp://www.developpez.net/forums/d48...ichier-format/

[Pierre Fauconnier]

Salut.

Découpe ton code en petits morceaux. Tout le code dans le clic d'un bouton n'est jamais une solution.

Ecris d'abord une fonction qui te permet de récupérer les nom des fichiers. Stocke ces données dans des variables. Ecris une fonction qui ouvre un fichier dont tu connais le nom. Définis tes plages de copie et de collage puis copie-colle de la palge source vers la plage cible. Ferme les fichiers ouverts.


Normalement, les codes donnés ici devraient être encadrés dans des gestions d'erreur, mais je te donne ici le fil conducteur. Note que lorsque tu ouvres un fichier Excel, il devient actif. Il est donc important de travailler avec des variables pour être certain de choisir les plages des bons fichiers...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Process()
  Dim SourceFileName As String
  Dim TargetFileName As String
  Dim SourceRange As Range
  Dim TargetRange As Range
  Dim SourceWB As Workbook
  Dim TargetWb As Workbook
 
  SourceFileName = GetFileName()
  TargetFileName = GetFileName()
  If SourceFileName <> "" And TargetFileName <> "" Then
    Set SourceWB = GetWorkbook(SourceFileName)
    Set TargetWb = GetWorkbook(TargetFileName)
    Set SourceRange = SourceWB.Worksheets("...").Range("a1")
    Set TargetRange = TargetWb.Worksheets("...").Range("B12")
    SourceRange.Copy TargetRange
    TargetWb.Close False
    SourceWB.Close False
  edif
End Sub
 
Function GetFileName() As String
  Dim dialbox As FileDialog
  Dim Filename As String
 
  Set dialbox = Application.FileDialog(msoFileDialogFilePicker)
 
  dialbox.Show
  If dialbox.SelectedItems.Count > 0 Then GetFileName = dialbox.SelectedItems(1)
End Function
 
Function GetWorkbook(Filename As String) As Workbook
  If Dir(Filename) <> "" Then Set GetWorkbook = Workbooks.Open(Filename)
End Function