Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

selectionner un fichier sur un autre disque en vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bpol
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bpol

XLDnaute Impliqué
bonjour,

j'ai une macro qui comporte cette partie

'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




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

mais je voudrais que la 2e partie de l'enregistrement se fasse sur un autre fichier mais qui n'est pas sur le même disque( d'ailleurs plus tard il sera sur un autre pc relié en réseau)
'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


Workbooks("c:\temps.xls").Sheets ("temps").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


merci du coup de main


Bpol
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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

Code: 
Dim tablo
'.....
ReDim tablo(3)
With Sheets(1)
    tablo(0) = .Range("E1")
    tablo(1) = .Range("H1")
    tablo(2) = .Range("G1")
    tablo(3) = .Range("I1")
End With

ChDir "H:\essai"
   Workbooks.Open Filename:="H:\essai\client.xls"
Ligne = Range("A65536").End(xlUp).Row + 1
Range(Cells(Ligne, 1), Cells(Ligne, 4)) = tablo
With activeworkbook
    .Save
    .Close
End With
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
115
patricktoulon
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
181
dysorthographie
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
148
Electron24
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
276
AtTheOne
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
492
AtTheOne
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
492
CortoXls
C
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
196
job75
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
301
spike29
S
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
220
Abi23
A
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
186
kiki29
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
345
VBA_dev_Anne_Marie
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
142
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
523
job75
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
244
xavieralvaro
X
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
549
ph.vanne
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
205
sylvanu
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
146
job75
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
256
sebastien176
S
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
321
Piment
P
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
509
Jojo973
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…