XL pour MAC Transfert de donnés sur un autre fichier excel ( VBA )

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 !

ArnaudSi

XLDnaute Nouveau
Bonjour

L'objectif est de transférer des données d'un fichier excel ouvert vers un autre fichier excel, de l'ouvrir, d'y coller les données, et de le fermer avec une sauvegarde.

VB:
Sub transfertsuivi()

Dim Reponse As Integer
'
Reponse = MsgBox("Confirmez-vous le transfert de la feuille Suivi ?", vbYesNo)
If Reponse = vbYes Then
    Application.ScreenUpdating = True
  
    With Sheets("Suivi")
           Range("A8:J43").Select
           Selection.Copy
    End With

        Workbooks.Open Filename:= _
            "Z:/Users/arnaud/Document/fichiertest"
        Windows("fichiertest").Activate

                With Sheets("Donnée")

                Ligne = Sheets("Donnée").Cells(43, 2).End(xlUp).Row + 1

                If Ligne = 43 Then
                    MsgBox "Transfert impossible: tableau complet."
                    Exit Sub 'permet d'arrêter le transfert
                Else
              
                Application.ScreenUpdating = False
                          
                    Range(".Cells(Ligne, 2)").Select
                    ActiveSheet.Paste
    
                End With
              
                End If
                      
                Application.ScreenUpdating = True
      
            Application.ScreenUpdating = True

            MsgBox "Transfert Réussit."

Workbooks("fichiertest").Close True

Else
    MsgBox "Transfert interrompu."
End If
   
End Sub

L'instruction s'arrête à la ligne "Workbooks.Open Filename:= _" et une fenêtre s'ouvre avec l'affichage " Erreur d'exécution "1004": Erreur définie par l'application ou par l'objet"

Peut être y a t il une autre façon de montrer le chemin du fichier?
(Précision : Execution de la macro sur Apple Mac Os 10.11.6)
 
Dernière édition:
Bonjour,
Pour commencer...si dans cette instruction
"Z:/Users/arnaud/Document/fichiertest"
" fichiertest" est le nom du fichier, il manque l'extension '".xls" ou ".xlsx" ou ".xlsm"
Ensuite la syntaxe pour ouvrir un fichier serait:
Workbooks.Open Filename:="Z:\Users\Arnaud\Document\fichiertest.xlsx"

Nb: A condition que le chemin soit correct.
 
- 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

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
68
Réponses
4
Affichages
355
Réponses
7
Affichages
717
Réponses
4
Affichages
138
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
234
Réponses
2
Affichages
392
Réponses
3
Affichages
533
Retour