selectionner un fichier sur un autre disque en vba

Re : selectionner un fichier sur un autre disque en vba

re,

j'ai modifié comme cela mais toujours le bug

Dim WB1 As Workbook
Dim WB2 As Workbook
Dim lig As Long
Dim choixLig As Long
Dim col As Long
Dim choixCol As Long
Dim Ligne As Long

Set WB1 = ActiveWorkbook
Sheets("tableau").Activate '????? est-ce bien cette feuille ?????
' Trouver la ligne
choixLig = 0

For lig = 7 To 256
If Range("E7") = 0 Then choixLig = 7: Exit For

If Range("E" & lig) = Range("E1") Then choixLig = lig: Exit For

If Range("E" & lig) = 0 And Range("F3") > 1 Then
lig = Range("E65536").End(xlUp).Row + 1
Cells(lig, 5) = Range("E1")
choixLig = lig: Exit For
End If
Next lig

Cells(choixLig, 5) = Range("E1")

' If choixLig = 0 Then
' MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
' Exit Sub
' End If

' Trouver la colonne
choixCol = 0
For col = 6 To 9
If Cells(choixLig, col) = 0 Then
choixCol = col
Exit For
End If
Next col

If choixCol = 0 Then
MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If

' Afficher le résultat
Cells(choixLig, choixCol).Value = Range("I1").Value

'and
Sheets("récap").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Cells(Ligne, 1) = Sheets("tableau").Range("E1")
Cells(Ligne, 2) = Sheets("tableau").Range("H1")
Cells(Ligne, 3) = Sheets("tableau").Range("G1")
Cells(Ligne, 4) = Sheets("tableau").Range("I1")
'and
Windows("C\temps.xls").Activate
Set WB2 = ActiveWorkbook
Ligne = Range("A65536").End(xlUp).Row + 1
Cells(Ligne, 1) = WB1.Sheets("tableau").Range("E1")
Cells(Ligne, 2) = WB1.Sheets("tableau").Range("i1")
Cells(Ligne, 3) = WB1.Sheets("tableau").Range("h1")
Cells(Ligne, 4) = WB1.Sheets("tableau").Range("g1")
'and
Windows("TRC mmss.xls").Activate
Worksheets("tableau").Select
'And
WB1.Save
WB2.Save

Re : selectionner un fichier sur un autre disque en vba

Bonjour

si tu es dans la feuille contenant les valeurs à copier (E1,H1...)
le classeur "client" (destination) sur un autre lecteur est actuellement fermé. Testé sur disque dur externe (H)
à adapter à tes paramètres (nom des feuilles, classeurs etc.)
la technique de l'array (tablo) est 20 fois plus rapide que l'égalité de celllues

Re : selectionner un fichier sur un autre disque en vba

bonjour michel,

merci mais cela ne fonctionne pas !


Bpol

Re : selectionner un fichier sur un autre disque en vba

c'est un extrait de macro
tu l'insères dans ta procédure

J'ai essayé chez moi: ca fonctionne (avant de proposer, je teste toujours une maquette)

comme tu dis pas où quand comment quel message, je ne peux rien faire pour toi...
désolé, bon WE

Re : selectionner un fichier sur un autre disque en vba

RE Michel,

voici mon fichier: http://cjoint.com/?guty0MR5ct

et la macro a modifier

Private Sub cmdEnregistrer_Click()
Dim lig As Long
Dim choixLig As Long
Dim col As Long
Dim choixCol As Long

' Trouver la ligne
choixLig = 0

For lig = 7 To 256
If Range("E7") = 0 Then choixLig = 7: Exit For

If Range("E" & lig) = Range("E1") Then choixLig = lig: Exit For

If Range("E" & lig) = 0 And Range("F3") > 1 Then
lig = Range("E65536").End(xlUp).Row + 1
Cells(lig, 5) = Range("E1")
choixLig = lig: Exit For
End If
Next lig

Cells(choixLig, 5) = Range("E1")

' If choixLig = 0 Then
' MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
' Exit Sub
' End If

' Trouver la colonne
choixCol = 0
For col = 6 To 9
If Cells(choixLig, col) = 0 Then
choixCol = col
Exit For
End If
Next col

If choixCol = 0 Then
MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If

' Afficher le résultat
Cells(choixLig, choixCol).Value = Range("I1").Value

'and
Sheets("récap").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Cells(Ligne, 1) = Sheets("tableau").Range("E1")
Cells(Ligne, 2) = Sheets("tableau").Range("H1")
Cells(Ligne, 3) = Sheets("tableau").Range("G1")
Cells(Ligne, 4) = Sheets("tableau").Range("I1")
'and

ce que je désire c'est qu'au lieu de copier les cellules sur la feuille calcul c'est de les copier dans un autre fichier sur un autre disque dur
'and
Sheets("calcul").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Cells(Ligne, 1) = Sheets("tableau").Range("E1")
Cells(Ligne, 2) = Sheets("tableau").Range("H1")
Cells(Ligne, 3) = Sheets("tableau").Range("G1")
Cells(Ligne, 4) = Sheets("tableau").Range("I1")
'and

Worksheets("tableau").Select
'And
ActiveWorkbook.save

End Sub

Bon WE

Bpol

Re : selectionner un fichier sur un autre disque en vba

RE,
c'est encore moi

j'ai trouvé la solution

fil terminé

Encore merci Michel

Bpol