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 Accro
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.
 

ArnaudSi

XLDnaute Nouveau
Bonjour

Merci pour votre réponse

J'ai bien vérifié et essayé les différentes variantes et le même message d'alerte s'affiche malheureusement...
 

Jacky67

XLDnaute Accro
Bonjour

Merci pour votre réponse

J'ai bien vérifié et essayé les différentes variantes et le même message d'alerte s'affiche malheureusement...
RE...
Oupsss, je n'ai pas vu que c'était sur un mac
Désolé,
Bien que je ne pense pas que cette instruction soit différente, je n'ai aucun moyen de tester.
Ouvre un nouveau fil
 

Discussions similaires


Haut Bas