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

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:

Jacky67

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
312 961
Messages
2 093 969
Membres
105 901
dernier inscrit
Pouni38